home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / vcredit / vcredit.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  92.3 KB  |  3,171 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   previewMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Video Preview"
  11.     :menu-item-labels       ("Play entire edit" "Play part of edit..." )
  12.     :menu-item-label-types  (:string :string )
  13.     :menu-item-states       (:active :active )
  14.     :menu-item-defaults     (t nil )
  15.     :initial-selections     (nil nil )
  16.     :menu-item-handlers     (PreviewStartEnd EditPreview )
  17.     :menu-item-menus        (nil nil )
  18.     :menu-item-colors       ("" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (previewMenu "Play entire edit")
  24.         :when                   (Notify )
  25.         :to                     (previewMenu "Play entire edit")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (PreviewStartEnd)
  29.         )
  30.         (
  31.         :from                   (previewMenu "Play part of edit...")
  32.         :when                   (Notify )
  33.         :to                     (previewMenu "Play part of edit...")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (EditPreview)
  37.         )
  38.     )
  39. )
  40. (
  41.     :type                   :menu
  42.     :name                   editAudioMenu
  43.     :help                   ""
  44.     :columns                1
  45.     :menu-type              :command
  46.     :menu-handler           nil
  47.     :menu-title             "Stereo"
  48.     :menu-item-labels       ("Stereo" "Right" "Left" "Mute" )
  49.     :menu-item-label-types  (:string :string :string :string )
  50.     :menu-item-states       (:active :active :active :active )
  51.     :menu-item-defaults     (t nil nil nil )
  52.     :initial-selections     (nil nil nil nil )
  53.     :menu-item-handlers     (EditAudioStereo EditAudioRight EditAudioLeft EditAudioMute )
  54.     :menu-item-menus        (nil nil nil nil )
  55.     :menu-item-colors       ("" "" "" "" )
  56.     :pinnable               t
  57.     :user-data              ()
  58.     :actions                (
  59.         (
  60.         :from                   (editAudioMenu "Stereo")
  61.         :when                   (Notify )
  62.         :to                     (editAudioMenu "Stereo")
  63.         :function_type          CallFunction
  64.         :arg_type               ()
  65.         :action                 (EditAudioStereo)
  66.         )
  67.         (
  68.         :from                   (editAudioMenu "Right")
  69.         :when                   (Notify )
  70.         :to                     (editAudioMenu "Right")
  71.         :function_type          CallFunction
  72.         :arg_type               ()
  73.         :action                 (EditAudioRight)
  74.         )
  75.         (
  76.         :from                   (editAudioMenu "Left")
  77.         :when                   (Notify )
  78.         :to                     (editAudioMenu "Left")
  79.         :function_type          CallFunction
  80.         :arg_type               ()
  81.         :action                 (EditAudioLeft)
  82.         )
  83.         (
  84.         :from                   (editAudioMenu "Mute")
  85.         :when                   (Notify )
  86.         :to                     (editAudioMenu "Mute")
  87.         :function_type          CallFunction
  88.         :arg_type               ()
  89.         :action                 (EditAudioMute)
  90.         )
  91.     )
  92. )
  93. (
  94.     :type                   :menu
  95.     :name                   DocMenu
  96.     :help                   ""
  97.     :columns                1
  98.     :menu-type              :command
  99.     :menu-handler           nil
  100.     :menu-title             "Document"
  101.     :menu-item-labels       ("Open" "Save" "Save As ..." "Close File" "Close Window" )
  102.     :menu-item-label-types  (:string :string :string :string :string )
  103.     :menu-item-states       (:active :active :active :active :active )
  104.     :menu-item-defaults     (nil nil nil nil nil )
  105.     :initial-selections     (nil nil nil nil nil )
  106.     :menu-item-handlers     (FileLoad FileSave FileSaveAs EditFileClose EditCloseWindow )
  107.     :menu-item-menus        (nil nil nil nil nil )
  108.     :menu-item-colors       ("" "" "" "" "" )
  109.     :pinnable               t
  110.     :user-data              ()
  111.     :actions                (
  112.         (
  113.         :from                   (DocMenu "Open")
  114.         :when                   (Notify )
  115.         :to                     (DocMenu "Open")
  116.         :function_type          CallFunction
  117.         :arg_type               ()
  118.         :action                 (FileLoad)
  119.         )
  120.         (
  121.         :from                   (DocMenu "Save")
  122.         :when                   (Notify )
  123.         :to                     (DocMenu "Save")
  124.         :function_type          CallFunction
  125.         :arg_type               ()
  126.         :action                 (FileSave)
  127.         )
  128.         (
  129.         :from                   (DocMenu "Save As ...")
  130.         :when                   (Notify )
  131.         :to                     (DocMenu "Save As ...")
  132.         :function_type          CallFunction
  133.         :arg_type               ()
  134.         :action                 (FileSaveAs)
  135.         )
  136.         (
  137.         :from                   (DocMenu "Close File")
  138.         :when                   (Notify )
  139.         :to                     (DocMenu "Close File")
  140.         :function_type          CallFunction
  141.         :arg_type               ()
  142.         :action                 (EditFileClose)
  143.         )
  144.         (
  145.         :from                   (DocMenu "Close Window")
  146.         :when                   (Notify )
  147.         :to                     (DocMenu "Close Window")
  148.         :function_type          CallFunction
  149.         :arg_type               ()
  150.         :action                 (EditCloseWindow)
  151.         )
  152.     )
  153. )
  154. (
  155.     :type                   :base-window
  156.     :name                   window1
  157.     :owner                  nil
  158.     :width                  234
  159.     :height                 452
  160.     :background-color       "BG1"
  161.     :foreground-color       ""
  162.     :label                  "VCR Remote Controller"
  163.     :label-type             :string
  164.     :initial-state          :open
  165.     :show-footer            t
  166.     :resizable              t
  167.     :icon-file              "icons/vcrEditIcon"
  168.     :icon-label             ""
  169.     :icon-mask-file         ""
  170.     :event-handler          nil
  171.     :user-data              ()
  172.     :actions                ()
  173. )
  174. (
  175.     :type                   :control-area
  176.     :name                   remoteCtrlControls
  177.     :owner                  window1
  178.     :help                   ""
  179.     :x                      0
  180.     :y                      0
  181.     :width                  234
  182.     :height                 204
  183.     :background-color       "BG1"
  184.     :foreground-color       "Black"
  185.     :initial-state          :visible
  186.     :show-border            nil
  187.     :menu                   nil
  188.     :event-handler          nil
  189.     :user-data              ()
  190.     :actions                ()
  191. )
  192. (
  193.     :type                   :button
  194.     :name                   optionsButton
  195.     :owner                  remoteCtrlControls
  196.     :help                   "Opens Options Popup."
  197.     :x                      12
  198.     :y                      12
  199.     :width                  75
  200.     :height                 19
  201.     :constant-width         nil
  202.     :button-type            :normal
  203.     :foreground-color       "Black"
  204.     :label                  "Options..."
  205.     :label-type             :string
  206.     :initial-state          :active
  207.     :menu                   nil
  208.     :notify-handler         Options
  209.     :event-handler          nil
  210.     :user-data              ()
  211.     :actions                (
  212.         (
  213.         :from                   (window1 optionsButton)
  214.         :when                   (Notify )
  215.         :to                     (window1 optionsButton)
  216.         :function_type          CallFunction
  217.         :arg_type               ()
  218.         :action                 (Options)
  219.         )
  220.     )
  221. )
  222. (
  223.     :type                   :button
  224.     :name                   editButton
  225.     :owner                  remoteCtrlControls
  226.     :help                   "Opens Edit List for video editing."
  227.     :x                      100
  228.     :y                      12
  229.     :width                  55
  230.     :height                 19
  231.     :constant-width         nil
  232.     :button-type            :normal
  233.     :foreground-color       "Black"
  234.     :label                  " Edit..."
  235.     :label-type             :string
  236.     :initial-state          :active
  237.     :menu                   nil
  238.     :notify-handler         Edit
  239.     :event-handler          nil
  240.     :user-data              ()
  241.     :actions                (
  242.         (
  243.         :from                   (window1 editButton)
  244.         :when                   (Notify )
  245.         :to                     (window1 editButton)
  246.         :function_type          CallFunction
  247.         :arg_type               ()
  248.         :action                 (Edit)
  249.         )
  250.     )
  251. )
  252. (
  253.     :type                   :button
  254.     :name                   quitButton
  255.     :owner                  remoteCtrlControls
  256.     :help                   "Quits the application."
  257.     :x                      168
  258.     :y                      12
  259.     :width                  57
  260.     :height                 19
  261.     :constant-width         nil
  262.     :button-type            :normal
  263.     :foreground-color       "Black"
  264.     :label                  " Quit  "
  265.     :label-type             :string
  266.     :initial-state          :active
  267.     :menu                   nil
  268.     :notify-handler         Quit
  269.     :event-handler          nil
  270.     :user-data              ()
  271.     :actions                (
  272.         (
  273.         :from                   (window1 quitButton)
  274.         :when                   (Notify )
  275.         :to                     (window1 quitButton)
  276.         :function_type          CallFunction
  277.         :arg_type               ()
  278.         :action                 (Quit)
  279.         )
  280.     )
  281. )
  282. (
  283.     :type                   :setting
  284.     :name                   timeStg
  285.     :owner                  remoteCtrlControls
  286.     :help                   "Sets the selected field's slider active."
  287.     :x                      16
  288.     :y                      48
  289.     :width                  197
  290.     :height                 23
  291.     :value-x                16
  292.     :value-y                48
  293.     :rows                   1
  294.     :columns                0
  295.     :layout-type            :horizontal
  296.     :foreground-color       ""
  297.     :setting-type           :exclusive
  298.     :selection-required     t
  299.     :label                  ""
  300.     :label-type             :string
  301.     :notify-handler         TimeInput
  302.     :event-handler          nil
  303.     :choices                ("Abs" "Hr" "Min" "Sec" "Frame" )
  304.     :choice-label-types     (:string :string :string :string :string )
  305.     :choice-colors          ("" "" "" "" "" )
  306.     :initial-selections     (nil nil nil nil nil )
  307.     :initial-state          :active
  308.     :user-data              ()
  309.     :actions                (
  310.         (
  311.         :from                   (window1 timeStg)
  312.         :when                   (Notify )
  313.         :to                     (window1 timeStg)
  314.         :function_type          CallFunction
  315.         :arg_type               ()
  316.         :action                 (TimeInput)
  317.         )
  318.     )
  319. )
  320. (
  321.     :type                   :message
  322.     :name                   timeMsg
  323.     :owner                  remoteCtrlControls
  324.     :help                   ""
  325.     :x                      72
  326.     :y                      80
  327.     :width                  73
  328.     :height                 13
  329.     :foreground-color       ""
  330.     :label                  "00:00:00:00"
  331.     :label-type             :string
  332.     :label-bold             t
  333.     :initial-state          :active
  334.     :event-handler          nil
  335.     :user-data              ()
  336.     :actions                ()
  337. )
  338. (
  339.     :type                   :button
  340.     :name                   timePlusButton
  341.     :owner                  remoteCtrlControls
  342.     :help                   "Increases the value of the currently
  343. active slider by one unit."
  344.     :x                      192
  345.     :y                      80
  346.     :width                  30
  347.     :height                 19
  348.     :constant-width         nil
  349.     :button-type            :normal
  350.     :foreground-color       ""
  351.     :label                  "+ "
  352.     :label-type             :string
  353.     :initial-state          :active
  354.     :menu                   nil
  355.     :notify-handler         TimePlus
  356.     :event-handler          nil
  357.     :user-data              ()
  358.     :actions                (
  359.         (
  360.         :from                   (window1 timePlusButton)
  361.         :when                   (Notify )
  362.         :to                     (window1 timePlusButton)
  363.         :function_type          CallFunction
  364.         :arg_type               ()
  365.         :action                 (TimePlus)
  366.         )
  367.     )
  368. )
  369. (
  370.     :type                   :slider
  371.     :name                   secSlider
  372.     :owner                  remoteCtrlControls
  373.     :help                   ""
  374.     :x                      0
  375.     :y                      100
  376.     :width                  176
  377.     :height                 26
  378.     :value-x                0
  379.     :value-y                100
  380.     :slider-width           130
  381.     :ticks                  7
  382.     :foreground-color       ""
  383.     :label                  ""
  384.     :label-type             :string
  385.     :layout-type            :horizontal
  386.     :orientation            :horizontal
  387.     :show-endboxes          nil
  388.     :show-range             t
  389.     :show-value             nil
  390.     :min-value              0
  391.     :max-value              60
  392.     :min-value-string       ""
  393.     :max-value-string       ""
  394.     :min-tick-string        ""
  395.     :max-tick-string        ""
  396.     :initial-value          0
  397.     :initial-state          :active
  398.     :notify-handler         SecInput
  399.     :event-handler          nil
  400.     :user-data              ()
  401.     :actions                (
  402.         (
  403.         :from                   (window1 secSlider)
  404.         :when                   (Notify )
  405.         :to                     (window1 secSlider)
  406.         :function_type          CallFunction
  407.         :arg_type               ()
  408.         :action                 (SecInput)
  409.         )
  410.     )
  411. )
  412. (
  413.     :type                   :slider
  414.     :name                   hrSlider
  415.     :owner                  remoteCtrlControls
  416.     :help                   ""
  417.     :x                      0
  418.     :y                      100
  419.     :width                  168
  420.     :height                 26
  421.     :value-x                0
  422.     :value-y                100
  423.     :slider-width           130
  424.     :ticks                  9
  425.     :foreground-color       ""
  426.     :label                  ""
  427.     :label-type             :string
  428.     :layout-type            :horizontal
  429.     :orientation            :horizontal
  430.     :show-endboxes          nil
  431.     :show-range             t
  432.     :show-value             nil
  433.     :min-value              0
  434.     :max-value              8
  435.     :min-value-string       ""
  436.     :max-value-string       ""
  437.     :min-tick-string        ""
  438.     :max-tick-string        ""
  439.     :initial-value          0
  440.     :initial-state          :active
  441.     :notify-handler         HrInput
  442.     :event-handler          nil
  443.     :user-data              ()
  444.     :actions                (
  445.         (
  446.         :from                   (window1 hrSlider)
  447.         :when                   (Notify )
  448.         :to                     (window1 hrSlider)
  449.         :function_type          CallFunction
  450.         :arg_type               ()
  451.         :action                 (HrInput)
  452.         )
  453.     )
  454. )
  455. (
  456.     :type                   :slider
  457.     :name                   frameSlider
  458.     :owner                  remoteCtrlControls
  459.     :help                   ""
  460.     :x                      0
  461.     :y                      100
  462.     :width                  176
  463.     :height                 26
  464.     :value-x                0
  465.     :value-y                100
  466.     :slider-width           130
  467.     :ticks                  4
  468.     :foreground-color       ""
  469.     :label                  ""
  470.     :label-type             :string
  471.     :layout-type            :horizontal
  472.     :orientation            :horizontal
  473.     :show-endboxes          nil
  474.     :show-range             t
  475.     :show-value             nil
  476.     :min-value              0
  477.     :max-value              30
  478.     :min-value-string       ""
  479.     :max-value-string       ""
  480.     :min-tick-string        ""
  481.     :max-tick-string        ""
  482.     :initial-value          0
  483.     :initial-state          :active
  484.     :notify-handler         FrameInput
  485.     :event-handler          nil
  486.     :user-data              ()
  487.     :actions                (
  488.         (
  489.         :from                   (window1 frameSlider)
  490.         :when                   (Notify )
  491.         :to                     (window1 frameSlider)
  492.         :function_type          CallFunction
  493.         :arg_type               ()
  494.         :action                 (FrameInput)
  495.         )
  496.     )
  497. )
  498. (
  499.     :type                   :slider
  500.     :name                   minSlider
  501.     :owner                  remoteCtrlControls
  502.     :help                   ""
  503.     :x                      0
  504.     :y                      100
  505.     :width                  176
  506.     :height                 26
  507.     :value-x                0
  508.     :value-y                100
  509.     :slider-width           130
  510.     :ticks                  7
  511.     :foreground-color       ""
  512.     :label                  ""
  513.     :label-type             :string
  514.     :layout-type            :horizontal
  515.     :orientation            :horizontal
  516.     :show-endboxes          nil
  517.     :show-range             t
  518.     :show-value             nil
  519.     :min-value              0
  520.     :max-value              60
  521.     :min-value-string       ""
  522.     :max-value-string       ""
  523.     :min-tick-string        ""
  524.     :max-tick-string        ""
  525.     :initial-value          0
  526.     :initial-state          :active
  527.     :notify-handler         MinInput
  528.     :event-handler          nil
  529.     :user-data              ()
  530.     :actions                (
  531.         (
  532.         :from                   (window1 minSlider)
  533.         :when                   (Notify )
  534.         :to                     (window1 minSlider)
  535.         :function_type          CallFunction
  536.         :arg_type               ()
  537.         :action                 (MinInput)
  538.         )
  539.     )
  540. )
  541. (
  542.     :type                   :slider
  543.     :name                   absSlider
  544.     :owner                  remoteCtrlControls
  545.     :help                   ""
  546.     :x                      20
  547.     :y                      100
  548.     :width                  146
  549.     :height                 26
  550.     :value-x                20
  551.     :value-y                100
  552.     :slider-width           130
  553.     :ticks                  9
  554.     :foreground-color       ""
  555.     :label                  ""
  556.     :label-type             :string
  557.     :layout-type            :horizontal
  558.     :orientation            :horizontal
  559.     :show-endboxes          nil
  560.     :show-range             nil
  561.     :show-value             nil
  562.     :min-value              0
  563.     :max-value              864000
  564.     :min-value-string       ""
  565.     :max-value-string       ""
  566.     :min-tick-string        ""
  567.     :max-tick-string        ""
  568.     :initial-value          0
  569.     :initial-state          :active
  570.     :notify-handler         AbsInput
  571.     :event-handler          nil
  572.     :user-data              ()
  573.     :actions                (
  574.         (
  575.         :from                   (window1 absSlider)
  576.         :when                   (Notify )
  577.         :to                     (window1 absSlider)
  578.         :function_type          CallFunction
  579.         :arg_type               ()
  580.         :action                 (AbsInput)
  581.         )
  582.     )
  583. )
  584. (
  585.     :type                   :button
  586.     :name                   timeMinusButton
  587.     :owner                  remoteCtrlControls
  588.     :help                   "Decreases the value on the currently
  589. active time slider by one unit."
  590.     :x                      192
  591.     :y                      116
  592.     :width                  30
  593.     :height                 19
  594.     :constant-width         nil
  595.     :button-type            :normal
  596.     :foreground-color       ""
  597.     :label                  "- "
  598.     :label-type             :string
  599.     :initial-state          :active
  600.     :menu                   nil
  601.     :notify-handler         TimeMinus
  602.     :event-handler          nil
  603.     :user-data              ()
  604.     :actions                (
  605.         (
  606.         :from                   (window1 timeMinusButton)
  607.         :when                   (Notify )
  608.         :to                     (window1 timeMinusButton)
  609.         :function_type          CallFunction
  610.         :arg_type               ()
  611.         :action                 (TimeMinus)
  612.         )
  613.     )
  614. )
  615. (
  616.     :type                   :text-field
  617.     :name                   frameTxt1
  618.     :owner                  remoteCtrlControls
  619.     :help                   "Hour field for position of tape head."
  620.     :x                      16
  621.     :y                      140
  622.     :width                  36
  623.     :height                 15
  624.     :value-x                16
  625.     :value-y                140
  626.     :value-length           2
  627.     :stored-length          2
  628.     :rows                   3
  629.     :foreground-color       "Black"
  630.     :text-type              :alphanumeric
  631.     :label                  ""
  632.     :label-type             :string
  633.     :layout-type            :horizontal
  634.     :value-underlined       t
  635.     :initial-value          ""
  636.     :initial-state          :active
  637.     :read-only              nil
  638.     :notify-handler         HrTxtInput
  639.     :event-handler          nil
  640.     :user-data              ()
  641.     :actions                (
  642.         (
  643.         :from                   (window1 frameTxt1)
  644.         :when                   (Notify )
  645.         :to                     (window1 frameTxt1)
  646.         :function_type          CallFunction
  647.         :arg_type               ()
  648.         :action                 (HrTxtInput)
  649.         )
  650.     )
  651. )
  652. (
  653.     :type                   :text-field
  654.     :name                   frameTxt2
  655.     :owner                  remoteCtrlControls
  656.     :help                   "Minute field of position of tape head."
  657.     :x                      64
  658.     :y                      140
  659.     :width                  47
  660.     :height                 15
  661.     :value-x                75
  662.     :value-y                140
  663.     :value-length           2
  664.     :stored-length          2
  665.     :rows                   3
  666.     :foreground-color       ""
  667.     :text-type              :alphanumeric
  668.     :label                  ":"
  669.     :label-type             :string
  670.     :layout-type            :horizontal
  671.     :value-underlined       t
  672.     :initial-value          ""
  673.     :initial-state          :active
  674.     :read-only              nil
  675.     :notify-handler         MinTxtInput
  676.     :event-handler          nil
  677.     :user-data              ()
  678.     :actions                (
  679.         (
  680.         :from                   (window1 frameTxt2)
  681.         :when                   (Notify )
  682.         :to                     (window1 frameTxt2)
  683.         :function_type          CallFunction
  684.         :arg_type               ()
  685.         :action                 (MinTxtInput)
  686.         )
  687.     )
  688. )
  689. (
  690.     :type                   :text-field
  691.     :name                   frameTxt3
  692.     :owner                  remoteCtrlControls
  693.     :help                   "Second field of position of tape head."
  694.     :x                      112
  695.     :y                      140
  696.     :width                  47
  697.     :height                 15
  698.     :value-x                123
  699.     :value-y                140
  700.     :value-length           2
  701.     :stored-length          2
  702.     :rows                   3
  703.     :foreground-color       ""
  704.     :text-type              :alphanumeric
  705.     :label                  ":"
  706.     :label-type             :string
  707.     :layout-type            :horizontal
  708.     :value-underlined       t
  709.     :initial-value          ""
  710.     :initial-state          :active
  711.     :read-only              nil
  712.     :notify-handler         SecTxtInput
  713.     :event-handler          nil
  714.     :user-data              ()
  715.     :actions                (
  716.         (
  717.         :from                   (window1 frameTxt3)
  718.         :when                   (Notify )
  719.         :to                     (window1 frameTxt3)
  720.         :function_type          CallFunction
  721.         :arg_type               ()
  722.         :action                 (SecTxtInput)
  723.         )
  724.     )
  725. )
  726. (
  727.     :type                   :text-field
  728.     :name                   frameTxt4
  729.     :owner                  remoteCtrlControls
  730.     :help                   "Frame field of position of tape head."
  731.     :x                      164
  732.     :y                      140
  733.     :width                  47
  734.     :height                 15
  735.     :value-x                175
  736.     :value-y                140
  737.     :value-length           2
  738.     :stored-length          2
  739.     :rows                   3
  740.     :foreground-color       ""
  741.     :text-type              :alphanumeric
  742.     :label                  ":"
  743.     :label-type             :string
  744.     :layout-type            :horizontal
  745.     :value-underlined       t
  746.     :initial-value          ""
  747.     :initial-state          :active
  748.     :read-only              nil
  749.     :notify-handler         FrameTxtInput
  750.     :event-handler          nil
  751.     :user-data              ()
  752.     :actions                (
  753.         (
  754.         :from                   (window1 frameTxt4)
  755.         :when                   (Notify )
  756.         :to                     (window1 frameTxt4)
  757.         :function_type          CallFunction
  758.         :arg_type               ()
  759.         :action                 (FrameTxtInput)
  760.         )
  761.     )
  762. )
  763. (
  764.     :type                   :button
  765.     :name                   searchButton
  766.     :owner                  remoteCtrlControls
  767.     :help                   "Searches for the position denoted by
  768. the time shown by the slider."
  769.     :x                      24
  770.     :y                      172
  771.     :width                  58
  772.     :height                 19
  773.     :constant-width         nil
  774.     :button-type            :normal
  775.     :foreground-color       "Black"
  776.     :label                  "Search"
  777.     :label-type             :string
  778.     :initial-state          :active
  779.     :menu                   nil
  780.     :notify-handler         Search
  781.     :event-handler          nil
  782.     :user-data              ()
  783.     :actions                (
  784.         (
  785.         :from                   (window1 searchButton)
  786.         :when                   (Notify )
  787.         :to                     (window1 searchButton)
  788.         :function_type          CallFunction
  789.         :arg_type               ()
  790.         :action                 (Search)
  791.         )
  792.     )
  793. )
  794. (
  795.     :type                   :button
  796.     :name                   currFrameButton
  797.     :owner                  remoteCtrlControls
  798.     :help                   "Gets the current position of tape head."
  799.     :x                      120
  800.     :y                      172
  801.     :width                  100
  802.     :height                 19
  803.     :constant-width         nil
  804.     :button-type            :normal
  805.     :foreground-color       "Black"
  806.     :label                  "Current Time"
  807.     :label-type             :string
  808.     :initial-state          :active
  809.     :menu                   nil
  810.     :notify-handler         CurrentFrame
  811.     :event-handler          nil
  812.     :user-data              ()
  813.     :actions                (
  814.         (
  815.         :from                   (window1 currFrameButton)
  816.         :when                   (Notify )
  817.         :to                     (window1 currFrameButton)
  818.         :function_type          CallFunction
  819.         :arg_type               ()
  820.         :action                 (CurrentFrame)
  821.         )
  822.     )
  823. )
  824. (
  825.     :type                   :control-area
  826.     :name                   remoteIconControls
  827.     :owner                  window1
  828.     :help                   ""
  829.     :x                      0
  830.     :y                      203
  831.     :width                  234
  832.     :height                 249
  833.     :background-color       "BG1"
  834.     :foreground-color       ""
  835.     :initial-state          :visible
  836.     :show-border            t
  837.     :menu                   nil
  838.     :event-handler          nil
  839.     :user-data              ()
  840.     :actions                ()
  841. )
  842. (
  843.     :type                   :button
  844.     :name                   pauseButton
  845.     :owner                  remoteIconControls
  846.     :help                   "Toggles between pause (video still) and
  847. playback."
  848.     :x                      24
  849.     :y                      12
  850.     :width                  42
  851.     :height                 25
  852.     :constant-width         nil
  853.     :button-type            :normal
  854.     :foreground-color       "Black"
  855.     :label                  "icons/pauseIcon"
  856.     :label-type             :glyph
  857.     :initial-state          :active
  858.     :menu                   nil
  859.     :notify-handler         Pause
  860.     :event-handler          nil
  861.     :user-data              ()
  862.     :actions                (
  863.         (
  864.         :from                   (window1 pauseButton)
  865.         :when                   (Notify )
  866.         :to                     (window1 pauseButton)
  867.         :function_type          CallFunction
  868.         :arg_type               ()
  869.         :action                 (Pause)
  870.         )
  871.     )
  872. )
  873. (
  874.     :type                   :button
  875.     :name                   playButton
  876.     :owner                  remoteIconControls
  877.     :help                   "Set device into playback mode."
  878.     :x                      92
  879.     :y                      12
  880.     :width                  42
  881.     :height                 25
  882.     :constant-width         nil
  883.     :button-type            :normal
  884.     :foreground-color       "Black"
  885.     :label                  "icons/playIcon"
  886.     :label-type             :glyph
  887.     :initial-state          :active
  888.     :menu                   nil
  889.     :notify-handler         Play
  890.     :event-handler          nil
  891.     :user-data              ()
  892.     :actions                (
  893.         (
  894.         :from                   (window1 playButton)
  895.         :when                   (Notify )
  896.         :to                     (window1 playButton)
  897.         :function_type          CallFunction
  898.         :arg_type               ()
  899.         :action                 (Play)
  900.         )
  901.     )
  902. )
  903. (
  904.     :type                   :button
  905.     :name                   stopButton
  906.     :owner                  remoteIconControls
  907.     :help                   "Stops playback and video mutes."
  908.     :x                      160
  909.     :y                      12
  910.     :width                  42
  911.     :height                 25
  912.     :constant-width         nil
  913.     :button-type            :normal
  914.     :foreground-color       "Black"
  915.     :label                  "icons/stopIcon"
  916.     :label-type             :glyph
  917.     :initial-state          :active
  918.     :menu                   nil
  919.     :notify-handler         Stop
  920.     :event-handler          nil
  921.     :user-data              ()
  922.     :actions                (
  923.         (
  924.         :from                   (window1 stopButton)
  925.         :when                   (Notify )
  926.         :to                     (window1 stopButton)
  927.         :function_type          CallFunction
  928.         :arg_type               ()
  929.         :action                 (Stop)
  930.         )
  931.     )
  932. )
  933. (
  934.     :type                   :button
  935.     :name                   scanRevButton
  936.     :owner                  remoteIconControls
  937.     :help                   "Fast reverses the video."
  938.     :x                      64
  939.     :y                      48
  940.     :width                  42
  941.     :height                 22
  942.     :constant-width         nil
  943.     :button-type            :normal
  944.     :foreground-color       "Black"
  945.     :label                  "icons/rwIcon"
  946.     :label-type             :glyph
  947.     :initial-state          :active
  948.     :menu                   nil
  949.     :notify-handler         ScanReverse
  950.     :event-handler          nil
  951.     :user-data              ()
  952.     :actions                (
  953.         (
  954.         :from                   (window1 scanRevButton)
  955.         :when                   (Notify )
  956.         :to                     (window1 scanRevButton)
  957.         :function_type          CallFunction
  958.         :arg_type               ()
  959.         :action                 (ScanReverse)
  960.         )
  961.     )
  962. )
  963. (
  964.     :type                   :button
  965.     :name                   scanFwdButton
  966.     :owner                  remoteIconControls
  967.     :help                   "Fast forwards the video."
  968.     :x                      120
  969.     :y                      48
  970.     :width                  42
  971.     :height                 22
  972.     :constant-width         nil
  973.     :button-type            :normal
  974.     :foreground-color       "Black"
  975.     :label                  "icons/ffIcon"
  976.     :label-type             :glyph
  977.     :initial-state          :active
  978.     :menu                   nil
  979.     :notify-handler         ScanForward
  980.     :event-handler          nil
  981.     :user-data              ()
  982.     :actions                (
  983.         (
  984.         :from                   (window1 scanFwdButton)
  985.         :when                   (Notify )
  986.         :to                     (window1 scanFwdButton)
  987.         :function_type          CallFunction
  988.         :arg_type               ()
  989.         :action                 (ScanForward)
  990.         )
  991.     )
  992. )
  993. (
  994.     :type                   :button
  995.     :name                   indexPrevButton
  996.     :owner                  remoteIconControls
  997.     :help                   "Fast rewinds to previous index."
  998.     :x                      12
  999.     :y                      96
  1000.     :width                  42
  1001.     :height                 22
  1002.     :constant-width         nil
  1003.     :button-type            :normal
  1004.     :foreground-color       ""
  1005.     :label                  "icons/rIndexIcon"
  1006.     :label-type             :glyph
  1007.     :initial-state          :active
  1008.     :menu                   nil
  1009.     :notify-handler         PrevIndexSearch
  1010.     :event-handler          nil
  1011.     :user-data              ()
  1012.     :actions                (
  1013.         (
  1014.         :from                   (window1 indexPrevButton)
  1015.         :when                   (Notify )
  1016.         :to                     (window1 indexPrevButton)
  1017.         :function_type          CallFunction
  1018.         :arg_type               ()
  1019.         :action                 (PrevIndexSearch)
  1020.         )
  1021.     )
  1022. )
  1023. (
  1024.     :type                   :button
  1025.     :name                   revStepButton
  1026.     :owner                  remoteIconControls
  1027.     :help                   "Stills video and reverses the picture
  1028. by one frame."
  1029.     :x                      68
  1030.     :y                      96
  1031.     :width                  42
  1032.     :height                 22
  1033.     :constant-width         nil
  1034.     :button-type            :normal
  1035.     :foreground-color       ""
  1036.     :label                  "icons/rStepIcon"
  1037.     :label-type             :glyph
  1038.     :initial-state          :active
  1039.     :menu                   nil
  1040.     :notify-handler         ReverseStep
  1041.     :event-handler          nil
  1042.     :user-data              ()
  1043.     :actions                (
  1044.         (
  1045.         :from                   (window1 revStepButton)
  1046.         :when                   (Notify )
  1047.         :to                     (window1 revStepButton)
  1048.         :function_type          CallFunction
  1049.         :arg_type               ()
  1050.         :action                 (ReverseStep)
  1051.         )
  1052.     )
  1053. )
  1054. (
  1055.     :type                   :button
  1056.     :name                   fwdStepButton
  1057.     :owner                  remoteIconControls
  1058.     :help                   "Stills the video and advances the picture 
  1059. by one frame."
  1060.     :x                      120
  1061.     :y                      96
  1062.     :width                  42
  1063.     :height                 22
  1064.     :constant-width         nil
  1065.     :button-type            :normal
  1066.     :foreground-color       "Black"
  1067.     :label                  "icons/fStepIcon"
  1068.     :label-type             :glyph
  1069.     :initial-state          :active
  1070.     :menu                   nil
  1071.     :notify-handler         ForwardStep
  1072.     :event-handler          nil
  1073.     :user-data              ()
  1074.     :actions                (
  1075.         (
  1076.         :from                   (window1 fwdStepButton)
  1077.         :when                   (Notify )
  1078.         :to                     (window1 fwdStepButton)
  1079.         :function_type          CallFunction
  1080.         :arg_type               ()
  1081.         :action                 (ForwardStep)
  1082.         )
  1083.     )
  1084. )
  1085. (
  1086.     :type                   :button
  1087.     :name                   indexNextButton
  1088.     :owner                  remoteIconControls
  1089.     :help                   "Fast forwards to next index."
  1090.     :x                      176
  1091.     :y                      96
  1092.     :width                  42
  1093.     :height                 22
  1094.     :constant-width         nil
  1095.     :button-type            :normal
  1096.     :foreground-color       ""
  1097.     :label                  "icons/fIndexIcon"
  1098.     :label-type             :glyph
  1099.     :initial-state          :active
  1100.     :menu                   nil
  1101.     :notify-handler         NextIndexSearch
  1102.     :event-handler          nil
  1103.     :user-data              ()
  1104.     :actions                (
  1105.         (
  1106.         :from                   (window1 indexNextButton)
  1107.         :when                   (Notify )
  1108.         :to                     (window1 indexNextButton)
  1109.         :function_type          CallFunction
  1110.         :arg_type               ()
  1111.         :action                 (NextIndexSearch)
  1112.         )
  1113.     )
  1114. )
  1115. (
  1116.     :type                   :button
  1117.     :name                   IndexScanRevButton
  1118.     :owner                  remoteIconControls
  1119.     :help                   "Reverse searches for indices and plays for
  1120. a few seconds at each index found."
  1121.     :x                      56
  1122.     :y                      128
  1123.     :width                  61
  1124.     :height                 19
  1125.     :constant-width         nil
  1126.     :button-type            :normal
  1127.     :foreground-color       ""
  1128.     :label                  "|< Scan"
  1129.     :label-type             :string
  1130.     :initial-state          :active
  1131.     :menu                   nil
  1132.     :notify-handler         IndexScanRev
  1133.     :event-handler          nil
  1134.     :user-data              ()
  1135.     :actions                (
  1136.         (
  1137.         :from                   (window1 IndexScanRevButton)
  1138.         :when                   (Notify )
  1139.         :to                     (window1 IndexScanRevButton)
  1140.         :function_type          CallFunction
  1141.         :arg_type               ()
  1142.         :action                 (IndexScanRev)
  1143.         )
  1144.     )
  1145. )
  1146. (
  1147.     :type                   :button
  1148.     :name                   indexScanFwdButton
  1149.     :owner                  remoteIconControls
  1150.     :help                   "Searches forward for indices and plays
  1151. a few seconds of each index found."
  1152.     :x                      120
  1153.     :y                      128
  1154.     :width                  61
  1155.     :height                 19
  1156.     :constant-width         nil
  1157.     :button-type            :normal
  1158.     :foreground-color       ""
  1159.     :label                  "Scan >|"
  1160.     :label-type             :string
  1161.     :initial-state          :active
  1162.     :menu                   nil
  1163.     :notify-handler         IndexScanFwd
  1164.     :event-handler          nil
  1165.     :user-data              ()
  1166.     :actions                (
  1167.         (
  1168.         :from                   (window1 indexScanFwdButton)
  1169.         :when                   (Notify )
  1170.         :to                     (window1 indexScanFwdButton)
  1171.         :function_type          CallFunction
  1172.         :arg_type               ()
  1173.         :action                 (IndexScanFwd)
  1174.         )
  1175.     )
  1176. )
  1177. (
  1178.     :type                   :text-field
  1179.     :name                   speedTxt
  1180.     :owner                  remoteIconControls
  1181.     :help                   "Shows the current speed achieved with the
  1182. speed slider."
  1183.     :x                      40
  1184.     :y                      164
  1185.     :width                  92
  1186.     :height                 15
  1187.     :value-x                92
  1188.     :value-y                164
  1189.     :value-length           5
  1190.     :stored-length          5
  1191.     :rows                   3
  1192.     :foreground-color       ""
  1193.     :text-type              :alphanumeric
  1194.     :label                  "Speed:"
  1195.     :label-type             :string
  1196.     :layout-type            :horizontal
  1197.     :value-underlined       t
  1198.     :initial-value          ""
  1199.     :initial-state          :active
  1200.     :read-only              nil
  1201.     :notify-handler         nil
  1202.     :event-handler          nil
  1203.     :user-data              ()
  1204.     :actions                ()
  1205. )
  1206. (
  1207.     :type                   :message
  1208.     :name                   speedMsg
  1209.     :owner                  remoteIconControls
  1210.     :help                   ""
  1211.     :x                      140
  1212.     :y                      164
  1213.     :width                  67
  1214.     :height                 13
  1215.     :foreground-color       ""
  1216.     :label                  "frames/sec"
  1217.     :label-type             :string
  1218.     :label-bold             nil
  1219.     :initial-state          :active
  1220.     :event-handler          nil
  1221.     :user-data              ()
  1222.     :actions                ()
  1223. )
  1224. (
  1225.     :type                   :slider
  1226.     :name                   speedSlider
  1227.     :owner                  remoteIconControls
  1228.     :help                   "Shuttle-knob behavior for adjusting
  1229. playback speed. 
  1230. Moving the slider to the right means forward
  1231. play, and moving it to the left means
  1232. reverse play.
  1233. Releasing the slider will still video."
  1234.     :x                      12
  1235.     :y                      188
  1236.     :width                  216
  1237.     :height                 20
  1238.     :value-x                12
  1239.     :value-y                188
  1240.     :slider-width           200
  1241.     :ticks                  0
  1242.     :foreground-color       ""
  1243.     :label                  ""
  1244.     :label-type             :string
  1245.     :layout-type            :vertical
  1246.     :orientation            :horizontal
  1247.     :show-endboxes          nil
  1248.     :show-range             nil
  1249.     :show-value             nil
  1250.     :min-value              -810
  1251.     :max-value              810
  1252.     :min-value-string       ""
  1253.     :max-value-string       ""
  1254.     :min-tick-string        ""
  1255.     :max-tick-string        ""
  1256.     :initial-value          0
  1257.     :initial-state          :active
  1258.     :notify-handler         SpeedChange
  1259.     :event-handler          nil
  1260.     :user-data              ()
  1261.     :actions                (
  1262.         (
  1263.         :from                   (window1 speedSlider)
  1264.         :when                   (Notify )
  1265.         :to                     (window1 speedSlider)
  1266.         :function_type          CallFunction
  1267.         :arg_type               ()
  1268.         :action                 (SpeedChange)
  1269.         )
  1270.     )
  1271. )
  1272. (
  1273.     :type                   :button
  1274.     :name                   powerButton
  1275.     :owner                  remoteIconControls
  1276.     :help                   "Toggles power between on and off.
  1277. "
  1278.     :x                      24
  1279.     :y                      216
  1280.     :width                  42
  1281.     :height                 25
  1282.     :constant-width         nil
  1283.     :button-type            :normal
  1284.     :foreground-color       "Black"
  1285.     :label                  "icons/powerIcon"
  1286.     :label-type             :glyph
  1287.     :initial-state          :active
  1288.     :menu                   nil
  1289.     :notify-handler         Power
  1290.     :event-handler          nil
  1291.     :user-data              ()
  1292.     :actions                (
  1293.         (
  1294.         :from                   (window1 powerButton)
  1295.         :when                   (Notify )
  1296.         :to                     (window1 powerButton)
  1297.         :function_type          CallFunction
  1298.         :arg_type               ()
  1299.         :action                 (Power)
  1300.         )
  1301.     )
  1302. )
  1303. (
  1304.     :type                   :button
  1305.     :name                   ejectButton
  1306.     :owner                  remoteIconControls
  1307.     :help                   "Ejects the tape from the device."
  1308.     :x                      168
  1309.     :y                      216
  1310.     :width                  42
  1311.     :height                 25
  1312.     :constant-width         nil
  1313.     :button-type            :normal
  1314.     :foreground-color       ""
  1315.     :label                  "icons/ejectIcon"
  1316.     :label-type             :glyph
  1317.     :initial-state          :active
  1318.     :menu                   nil
  1319.     :notify-handler         Eject
  1320.     :event-handler          nil
  1321.     :user-data              ()
  1322.     :actions                (
  1323.         (
  1324.         :from                   (window1 ejectButton)
  1325.         :when                   (Notify )
  1326.         :to                     (window1 ejectButton)
  1327.         :function_type          CallFunction
  1328.         :arg_type               ()
  1329.         :action                 (Eject)
  1330.         )
  1331.     )
  1332. )
  1333. (
  1334.     :type                   :popup-window
  1335.     :name                   optionsPopup
  1336.     :owner                  window1
  1337.     :width                  448
  1338.     :height                 270
  1339.     :background-color       ""
  1340.     :foreground-color       ""
  1341.     :label                  "Video Options"
  1342.     :label-type             :string
  1343.     :initial-state          :invisible
  1344.     :show-footer            t
  1345.     :resizable              t
  1346.     :pinned                 t
  1347.     :done-handler           nil
  1348.     :event-handler          nil
  1349.     :user-data              ()
  1350.     :actions                ()
  1351. )
  1352. (
  1353.     :type                   :control-area
  1354.     :name                   optionsControls
  1355.     :owner                  optionsPopup
  1356.     :help                   "Closes Options popup."
  1357.     :x                      0
  1358.     :y                      0
  1359.     :width                  448
  1360.     :height                 270
  1361.     :background-color       "BG1"
  1362.     :foreground-color       "Black"
  1363.     :initial-state          :visible
  1364.     :show-border            nil
  1365.     :menu                   nil
  1366.     :event-handler          nil
  1367.     :user-data              ()
  1368.     :actions                ()
  1369. )
  1370. (
  1371.     :type                   :setting
  1372.     :name                   optionsPlayerStg
  1373.     :owner                  optionsControls
  1374.     :help                   "Sets the device to use with this application."
  1375.     :x                      49
  1376.     :y                      16
  1377.     :width                  125
  1378.     :height                 23
  1379.     :value-x                107
  1380.     :value-y                16
  1381.     :rows                   1
  1382.     :columns                0
  1383.     :layout-type            :horizontal
  1384.     :foreground-color       ""
  1385.     :setting-type           :stack
  1386.     :selection-required     t
  1387.     :label                  "Player :"
  1388.     :label-type             :string
  1389.     :notify-handler         nil
  1390.     :event-handler          nil
  1391.     :choices                ("None" )
  1392.     :choice-label-types     (:string )
  1393.     :choice-colors          ("" )
  1394.     :choice-defaults        (nil )
  1395.     :initial-selections     (nil )
  1396.     :initial-state          :active
  1397.     :user-data              ()
  1398.     :actions                ()
  1399. )
  1400. (
  1401.     :type                   :setting
  1402.     :name                   optionsPreSearch
  1403.     :owner                  optionsControls
  1404.     :help                   "Pre-searches for the next selection whenever
  1405. possible, for use with the TimeLine application.
  1406. "
  1407.     :x                      248
  1408.     :y                      20
  1409.     :width                  160
  1410.     :height                 23
  1411.     :value-x                339
  1412.     :value-y                20
  1413.     :rows                   1
  1414.     :columns                0
  1415.     :layout-type            :horizontal
  1416.     :foreground-color       ""
  1417.     :setting-type           :exclusive
  1418.     :selection-required     t
  1419.     :label                  "Pre-search :"
  1420.     :label-type             :string
  1421.     :notify-handler         SetPreSearch
  1422.     :event-handler          nil
  1423.     :choices                ("No" "Yes" )
  1424.     :choice-label-types     (:string :string )
  1425.     :choice-colors          ("" "" )
  1426.     :initial-selections     (nil nil )
  1427.     :initial-state          :active
  1428.     :user-data              ()
  1429.     :actions                (
  1430.         (
  1431.         :from                   (optionsPopup optionsPreSearch)
  1432.         :when                   (Notify )
  1433.         :to                     (optionsPopup optionsPreSearch)
  1434.         :function_type          CallFunction
  1435.         :arg_type               ()
  1436.         :action                 (SetPreSearch)
  1437.         )
  1438.     )
  1439. )
  1440. (
  1441.     :type                   :setting
  1442.     :name                   port
  1443.     :owner                  optionsControls
  1444.     :help                   "Sets the serial port to which the device is
  1445. to be connected."
  1446.     :x                      21
  1447.     :y                      52
  1448.     :width                  194
  1449.     :height                 23
  1450.     :value-x                107
  1451.     :value-y                52
  1452.     :rows                   1
  1453.     :columns                0
  1454.     :layout-type            :horizontal
  1455.     :foreground-color       ""
  1456.     :setting-type           :exclusive
  1457.     :selection-required     t
  1458.     :label                  "Serial Port :"
  1459.     :label-type             :string
  1460.     :notify-handler         nil
  1461.     :event-handler          nil
  1462.     :choices                ("Default" "A" "B" )
  1463.     :choice-label-types     (:string :string :string )
  1464.     :choice-colors          ("" "" "" )
  1465.     :initial-selections     (nil nil nil )
  1466.     :initial-state          :active
  1467.     :user-data              ()
  1468.     :actions                ()
  1469. )
  1470. (
  1471.     :type                   :button
  1472.     :name                   setPlayerButton
  1473.     :owner                  optionsControls
  1474.     :help                   ""
  1475.     :x                      108
  1476.     :y                      96
  1477.     :width                  79
  1478.     :height                 19
  1479.     :constant-width         nil
  1480.     :button-type            :normal
  1481.     :foreground-color       "Foreground"
  1482.     :label                  "Set Player"
  1483.     :label-type             :string
  1484.     :initial-state          :active
  1485.     :menu                   nil
  1486.     :notify-handler         SetPlayer
  1487.     :event-handler          nil
  1488.     :user-data              ()
  1489.     :actions                (
  1490.         (
  1491.         :from                   (optionsPopup setPlayerButton)
  1492.         :when                   (Notify )
  1493.         :to                     (optionsPopup setPlayerButton)
  1494.         :function_type          CallFunction
  1495.         :arg_type               ()
  1496.         :action                 (SetPlayer)
  1497.         )
  1498.     )
  1499. )
  1500. (
  1501.     :type                   :text-field
  1502.     :name                   optionsNetworkHost
  1503.     :owner                  optionsControls
  1504.     :help                   "Sets the network host to which the current
  1505. application will connect, so that it can 
  1506. communicate with other MAEstro applications
  1507. on the same network host."
  1508.     :x                      5
  1509.     :y                      136
  1510.     :width                  342
  1511.     :height                 15
  1512.     :value-x                107
  1513.     :value-y                136
  1514.     :value-length           30
  1515.     :stored-length          30
  1516.     :rows                   3
  1517.     :foreground-color       ""
  1518.     :text-type              :alphanumeric
  1519.     :label                  "Network Host:"
  1520.     :label-type             :string
  1521.     :layout-type            :horizontal
  1522.     :value-underlined       t
  1523.     :initial-value          ""
  1524.     :initial-state          :active
  1525.     :read-only              nil
  1526.     :notify-handler         SetNetworkHost
  1527.     :event-handler          nil
  1528.     :user-data              ()
  1529.     :actions                (
  1530.         (
  1531.         :from                   (optionsPopup optionsNetworkHost)
  1532.         :when                   (Notify )
  1533.         :to                     (optionsPopup optionsNetworkHost)
  1534.         :function_type          CallFunction
  1535.         :arg_type               ()
  1536.         :action                 (SetNetworkHost)
  1537.         )
  1538.     )
  1539. )
  1540. (
  1541.     :type                   :setting
  1542.     :name                   optionsAudioStg
  1543.     :owner                  optionsControls
  1544.     :help                   "Sets the audio for device operation."
  1545.     :x                      16
  1546.     :y                      168
  1547.     :width                  238
  1548.     :height                 23
  1549.     :value-x                66
  1550.     :value-y                168
  1551.     :rows                   1
  1552.     :columns                0
  1553.     :layout-type            :horizontal
  1554.     :foreground-color       "Black"
  1555.     :setting-type           :exclusive
  1556.     :selection-required     t
  1557.     :label                  "Audio:"
  1558.     :label-type             :string
  1559.     :notify-handler         AudioSelect
  1560.     :event-handler          nil
  1561.     :choices                ("Mute" "Left" "Right" "Stereo" )
  1562.     :choice-label-types     (:string :string :string :string )
  1563.     :choice-colors          ("" "" "" "" )
  1564.     :initial-selections     (nil nil nil nil )
  1565.     :initial-state          :active
  1566.     :user-data              ()
  1567.     :actions                (
  1568.         (
  1569.         :from                   (optionsPopup optionsAudioStg)
  1570.         :when                   (Notify )
  1571.         :to                     (optionsPopup optionsAudioStg)
  1572.         :function_type          CallFunction
  1573.         :arg_type               ()
  1574.         :action                 (AudioSelect)
  1575.         )
  1576.     )
  1577. )
  1578. (
  1579.     :type                   :setting
  1580.     :name                   optionsVideoStg
  1581.     :owner                  optionsControls
  1582.     :help                   "Sets the onscreen video."
  1583.     :x                      292
  1584.     :y                      168
  1585.     :width                  138
  1586.     :height                 23
  1587.     :value-x                349
  1588.     :value-y                168
  1589.     :rows                   1
  1590.     :columns                0
  1591.     :layout-type            :horizontal
  1592.     :foreground-color       ""
  1593.     :setting-type           :exclusive
  1594.     :selection-required     t
  1595.     :label                  "  Video:"
  1596.     :label-type             :string
  1597.     :notify-handler         VideoSelect
  1598.     :event-handler          nil
  1599.     :choices                ("Mute" "On" )
  1600.     :choice-label-types     (:string :string )
  1601.     :choice-colors          ("" "" )
  1602.     :initial-selections     (nil nil )
  1603.     :initial-state          :active
  1604.     :user-data              ()
  1605.     :actions                (
  1606.         (
  1607.         :from                   (optionsPopup optionsVideoStg)
  1608.         :when                   (Notify )
  1609.         :to                     (optionsPopup optionsVideoStg)
  1610.         :function_type          CallFunction
  1611.         :arg_type               ()
  1612.         :action                 (VideoSelect)
  1613.         )
  1614.     )
  1615. )
  1616. (
  1617.     :type                   :setting
  1618.     :name                   optionsMutedScreen
  1619.     :owner                  optionsControls
  1620.     :help                   "Sets the color of the screen."
  1621.     :x                      192
  1622.     :y                      198
  1623.     :width                  243
  1624.     :height                 32
  1625.     :value-x                353
  1626.     :value-y                198
  1627.     :rows                   1
  1628.     :columns                0
  1629.     :layout-type            :horizontal
  1630.     :foreground-color       ""
  1631.     :setting-type           :stack
  1632.     :selection-required     t
  1633.     :label                  "Color of Muted Screen:"
  1634.     :label-type             :string
  1635.     :notify-handler         ScreenSelect
  1636.     :event-handler          nil
  1637.     :choices                ("icons/Chip" "icons/Chip" "icons/Chip" "icons/Chip" "icons/Chip" "icons/Chip" "icons/Chip" "icons/Chip" )
  1638.     :choice-label-types     (:glyph :glyph :glyph :glyph :glyph :glyph :glyph :glyph )
  1639.     :choice-colors          ("Magenta" "Blue" "Green" "Yellow" "Red" "Violet" "Cyan" "Green Yellow" )
  1640.     :choice-defaults        (nil nil nil nil nil nil nil nil )
  1641.     :initial-selections     (nil nil nil nil nil nil nil nil )
  1642.     :initial-state          :active
  1643.     :user-data              ()
  1644.     :actions                (
  1645.         (
  1646.         :from                   (optionsPopup optionsMutedScreen)
  1647.         :when                   (Notify )
  1648.         :to                     (optionsPopup optionsMutedScreen)
  1649.         :function_type          CallFunction
  1650.         :arg_type               ()
  1651.         :action                 (ScreenSelect)
  1652.         )
  1653.     )
  1654. )
  1655. (
  1656.     :type                   :setting
  1657.     :name                   optionsBrightStg
  1658.     :owner                  optionsControls
  1659.     :help                   "Sets screen brightness."
  1660.     :x                      16
  1661.     :y                      201
  1662.     :width                  164
  1663.     :height                 26
  1664.     :value-x                102
  1665.     :value-y                201
  1666.     :rows                   1
  1667.     :columns                0
  1668.     :layout-type            :horizontal
  1669.     :foreground-color       ""
  1670.     :setting-type           :exclusive
  1671.     :selection-required     t
  1672.     :label                  "Brightness:"
  1673.     :label-type             :string
  1674.     :notify-handler         BrightSelect
  1675.     :event-handler          nil
  1676.     :choices                ("icons/Full" "icons/Full" "icons/Full" )
  1677.     :choice-label-types     (:glyph :glyph :glyph )
  1678.     :choice-colors          ("White" "BG2" "Dark Slate Gray" )
  1679.     :initial-selections     (nil nil nil )
  1680.     :initial-state          :active
  1681.     :user-data              ()
  1682.     :actions                (
  1683.         (
  1684.         :from                   (optionsPopup optionsBrightStg)
  1685.         :when                   (Notify )
  1686.         :to                     (optionsPopup optionsBrightStg)
  1687.         :function_type          CallFunction
  1688.         :arg_type               ()
  1689.         :action                 (BrightSelect)
  1690.         )
  1691.     )
  1692. )
  1693. (
  1694.     :type                   :button
  1695.     :name                   optionsInfoButton
  1696.     :owner                  optionsControls
  1697.     :help                   "Opens Info popup."
  1698.     :x                      152
  1699.     :y                      244
  1700.     :width                  51
  1701.     :height                 19
  1702.     :constant-width         nil
  1703.     :button-type            :normal
  1704.     :foreground-color       "Black"
  1705.     :label                  "Info..."
  1706.     :label-type             :string
  1707.     :initial-state          :active
  1708.     :menu                   nil
  1709.     :notify-handler         Info
  1710.     :event-handler          nil
  1711.     :user-data              ()
  1712.     :actions                (
  1713.         (
  1714.         :from                   (optionsPopup optionsInfoButton)
  1715.         :when                   (Notify )
  1716.         :to                     (optionsPopup optionsInfoButton)
  1717.         :function_type          CallFunction
  1718.         :arg_type               ()
  1719.         :action                 (Info)
  1720.         )
  1721.     )
  1722. )
  1723. (
  1724.     :type                   :button
  1725.     :name                   optionsDoneButton
  1726.     :owner                  optionsControls
  1727.     :help                   ""
  1728.     :x                      256
  1729.     :y                      244
  1730.     :width                  49
  1731.     :height                 19
  1732.     :constant-width         nil
  1733.     :button-type            :normal
  1734.     :foreground-color       "Black"
  1735.     :label                  "Done"
  1736.     :label-type             :string
  1737.     :initial-state          :active
  1738.     :menu                   nil
  1739.     :notify-handler         Done
  1740.     :event-handler          nil
  1741.     :user-data              ()
  1742.     :actions                (
  1743.         (
  1744.         :from                   (optionsPopup optionsDoneButton)
  1745.         :when                   (Notify )
  1746.         :to                     (optionsPopup optionsDoneButton)
  1747.         :function_type          CallFunction
  1748.         :arg_type               ()
  1749.         :action                 (Done)
  1750.         )
  1751.     )
  1752. )
  1753. (
  1754.     :type                   :popup-window
  1755.     :name                   previewPopup
  1756.     :owner                  window1
  1757.     :width                  244
  1758.     :height                 172
  1759.     :background-color       ""
  1760.     :foreground-color       ""
  1761.     :label                  "Video Preview"
  1762.     :label-type             :string
  1763.     :initial-state          :invisible
  1764.     :show-footer            t
  1765.     :resizable              t
  1766.     :pinned                 nil
  1767.     :done-handler           nil
  1768.     :event-handler          nil
  1769.     :user-data              ()
  1770.     :actions                ()
  1771. )
  1772. (
  1773.     :type                   :control-area
  1774.     :name                   previewControls
  1775.     :owner                  previewPopup
  1776.     :help                   ""
  1777.     :x                      0
  1778.     :y                      0
  1779.     :width                  244
  1780.     :height                 172
  1781.     :background-color       "BG1"
  1782.     :foreground-color       "Black"
  1783.     :initial-state          :visible
  1784.     :show-border            nil
  1785.     :menu                   nil
  1786.     :event-handler          nil
  1787.     :user-data              ()
  1788.     :actions                ()
  1789. )
  1790. (
  1791.     :type                   :message
  1792.     :name                   previewMsg
  1793.     :owner                  previewControls
  1794.     :help                   ""
  1795.     :x                      72
  1796.     :y                      16
  1797.     :width                  108
  1798.     :height                 13
  1799.     :foreground-color       "Black"
  1800.     :label                  "Play Part of Edit"
  1801.     :label-type             :string
  1802.     :label-bold             t
  1803.     :initial-state          :active
  1804.     :event-handler          nil
  1805.     :user-data              ()
  1806.     :actions                ()
  1807. )
  1808. (
  1809.     :type                   :message
  1810.     :name                   previewSecMsg
  1811.     :owner                  previewControls
  1812.     :help                   ""
  1813.     :x                      88
  1814.     :y                      36
  1815.     :width                  72
  1816.     :height                 13
  1817.     :foreground-color       ""
  1818.     :label                  "(in seconds)"
  1819.     :label-type             :string
  1820.     :label-bold             nil
  1821.     :initial-state          :active
  1822.     :event-handler          nil
  1823.     :user-data              ()
  1824.     :actions                ()
  1825. )
  1826. (
  1827.     :type                   :button
  1828.     :name                   previewPlayFirstButton
  1829.     :owner                  previewControls
  1830.     :help                   "Plays first x seconds of current
  1831. selection."
  1832.     :x                      180
  1833.     :y                      64
  1834.     :width                  38
  1835.     :height                 19
  1836.     :constant-width         nil
  1837.     :button-type            :normal
  1838.     :foreground-color       "Midnight Blue"
  1839.     :label                  "<- "
  1840.     :label-type             :string
  1841.     :initial-state          :active
  1842.     :menu                   nil
  1843.     :notify-handler         PreviewStart
  1844.     :event-handler          nil
  1845.     :user-data              ()
  1846.     :actions                (
  1847.         (
  1848.         :from                   (previewPopup previewPlayFirstButton)
  1849.         :when                   (Notify )
  1850.         :to                     (previewPopup previewPlayFirstButton)
  1851.         :function_type          CallFunction
  1852.         :arg_type               ()
  1853.         :action                 (PreviewStart)
  1854.         )
  1855.     )
  1856. )
  1857. (
  1858.     :type                   :text-field
  1859.     :name                   previewPlayFirstTxt
  1860.     :owner                  previewControls
  1861.     :help                   "Enter number of seconds to playback."
  1862.     :x                      12
  1863.     :y                      68
  1864.     :width                  153
  1865.     :height                 15
  1866.     :value-x                94
  1867.     :value-y                68
  1868.     :value-length           3
  1869.     :stored-length          3
  1870.     :rows                   3
  1871.     :foreground-color       "Black"
  1872.     :text-type              :numeric
  1873.     :label                  "Play first : "
  1874.     :label-type             :string
  1875.     :layout-type            :horizontal
  1876.     :value-underlined       t
  1877.     :max-value              999
  1878.     :min-value              0
  1879.     :initial-value          0
  1880.     :initial-state          :active
  1881.     :read-only              nil
  1882.     :notify-handler         PreviewStartTxt
  1883.     :event-handler          nil
  1884.     :user-data              ()
  1885.     :actions                (
  1886.         (
  1887.         :from                   (previewPopup previewPlayFirstTxt)
  1888.         :when                   (Notify )
  1889.         :to                     (previewPopup previewPlayFirstTxt)
  1890.         :function_type          CallFunction
  1891.         :arg_type               ()
  1892.         :action                 (PreviewStartTxt)
  1893.         )
  1894.     )
  1895. )
  1896. (
  1897.     :type                   :button
  1898.     :name                   previewPlayLastButton
  1899.     :owner                  previewControls
  1900.     :help                   "Plays last x seconds of current
  1901. selection."
  1902.     :x                      180
  1903.     :y                      96
  1904.     :width                  38
  1905.     :height                 19
  1906.     :constant-width         nil
  1907.     :button-type            :normal
  1908.     :foreground-color       "Midnight Blue"
  1909.     :label                  "<- "
  1910.     :label-type             :string
  1911.     :initial-state          :active
  1912.     :menu                   nil
  1913.     :notify-handler         PreviewEnd
  1914.     :event-handler          nil
  1915.     :user-data              ()
  1916.     :actions                (
  1917.         (
  1918.         :from                   (previewPopup previewPlayLastButton)
  1919.         :when                   (Notify )
  1920.         :to                     (previewPopup previewPlayLastButton)
  1921.         :function_type          CallFunction
  1922.         :arg_type               ()
  1923.         :action                 (PreviewEnd)
  1924.         )
  1925.     )
  1926. )
  1927. (
  1928.     :type                   :text-field
  1929.     :name                   previewPlayLastTxt
  1930.     :owner                  previewControls
  1931.     :help                   "Enter number of seconds."
  1932.     :x                      12
  1933.     :y                      100
  1934.     :width                  149
  1935.     :height                 15
  1936.     :value-x                90
  1937.     :value-y                100
  1938.     :value-length           3
  1939.     :stored-length          3
  1940.     :rows                   3
  1941.     :foreground-color       ""
  1942.     :text-type              :numeric
  1943.     :label                  "Play last  :"
  1944.     :label-type             :string
  1945.     :layout-type            :horizontal
  1946.     :value-underlined       t
  1947.     :max-value              100
  1948.     :min-value              0
  1949.     :initial-value          0
  1950.     :initial-state          :active
  1951.     :read-only              nil
  1952.     :notify-handler         PreviewEndTxt
  1953.     :event-handler          nil
  1954.     :user-data              ()
  1955.     :actions                (
  1956.         (
  1957.         :from                   (previewPopup previewPlayLastTxt)
  1958.         :when                   (Notify )
  1959.         :to                     (previewPopup previewPlayLastTxt)
  1960.         :function_type          CallFunction
  1961.         :arg_type               ()
  1962.         :action                 (PreviewEndTxt)
  1963.         )
  1964.     )
  1965. )
  1966. (
  1967.     :type                   :button
  1968.     :name                   previewDoneButton
  1969.     :owner                  previewControls
  1970.     :help                   "Closes Preview popup."
  1971.     :x                      68
  1972.     :y                      132
  1973.     :width                  104
  1974.     :height                 19
  1975.     :constant-width         nil
  1976.     :button-type            :normal
  1977.     :foreground-color       "Black"
  1978.     :label                  "Close window"
  1979.     :label-type             :string
  1980.     :initial-state          :active
  1981.     :menu                   nil
  1982.     :notify-handler         PreviewDone
  1983.     :event-handler          nil
  1984.     :user-data              ()
  1985.     :actions                (
  1986.         (
  1987.         :from                   (previewPopup previewDoneButton)
  1988.         :when                   (Notify )
  1989.         :to                     (previewPopup previewDoneButton)
  1990.         :function_type          CallFunction
  1991.         :arg_type               ()
  1992.         :action                 (PreviewDone)
  1993.         )
  1994.     )
  1995. )
  1996. (
  1997.     :type                   :popup-window
  1998.     :name                   infoPopup
  1999.     :owner                  window1
  2000.     :width                  477
  2001.     :height                 265
  2002.     :background-color       ""
  2003.     :foreground-color       ""
  2004.     :label                  "About vcrEdit"
  2005.     :label-type             :string
  2006.     :initial-state          :invisible
  2007.     :show-footer            t
  2008.     :resizable              t
  2009.     :pinned                 nil
  2010.     :done-handler           nil
  2011.     :event-handler          nil
  2012.     :user-data              ()
  2013.     :actions                ()
  2014. )
  2015. (
  2016.     :type                   :control-area
  2017.     :name                   infoControls
  2018.     :owner                  infoPopup
  2019.     :help                   ""
  2020.     :x                      0
  2021.     :y                      0
  2022.     :width                  477
  2023.     :height                 265
  2024.     :background-color       "BG1"
  2025.     :foreground-color       "Black"
  2026.     :initial-state          :visible
  2027.     :show-border            nil
  2028.     :menu                   nil
  2029.     :event-handler          nil
  2030.     :user-data              ()
  2031.     :actions                ()
  2032. )
  2033. (
  2034.     :type                   :message
  2035.     :name                   infoMsg5
  2036.     :owner                  infoControls
  2037.     :help                   ""
  2038.     :x                      162
  2039.     :y                      16
  2040.     :width                  149
  2041.     :height                 13
  2042.     :foreground-color       "Black"
  2043.     :label                  "VCR Edit  Version 1.14"
  2044.     :label-type             :string
  2045.     :label-bold             t
  2046.     :initial-state          :active
  2047.     :event-handler          nil
  2048.     :user-data              ()
  2049.     :actions                ()
  2050. )
  2051. (
  2052.     :type                   :message
  2053.     :name                   infoMsg6
  2054.     :owner                  infoControls
  2055.     :help                   ""
  2056.     :x                      78
  2057.     :y                      40
  2058.     :width                  317
  2059.     :height                 13
  2060.     :foreground-color       "Black"
  2061.     :label                  "An application for annotating and editing videotape"
  2062.     :label-type             :string
  2063.     :label-bold             nil
  2064.     :initial-state          :active
  2065.     :event-handler          nil
  2066.     :user-data              ()
  2067.     :actions                ()
  2068. )
  2069. (
  2070.     :type                   :message
  2071.     :name                   infoMsg7
  2072.     :owner                  infoControls
  2073.     :help                   ""
  2074.     :x                      21
  2075.     :y                      64
  2076.     :width                  430
  2077.     :height                 13
  2078.     :foreground-color       ""
  2079.     :label                  "designed for use with the MAEstro Multimedia Authoring Environment"
  2080.     :label-type             :string
  2081.     :label-bold             nil
  2082.     :initial-state          :active
  2083.     :event-handler          nil
  2084.     :user-data              ()
  2085.     :actions                ()
  2086. )
  2087. (
  2088.     :type                   :message
  2089.     :name                   infoMsg1
  2090.     :owner                  infoControls
  2091.     :help                   ""
  2092.     :x                      180
  2093.     :y                      96
  2094.     :width                  111
  2095.     :height                 13
  2096.     :foreground-color       "Black"
  2097.     :label                  "by Wee-Lee Lim"
  2098.     :label-type             :string
  2099.     :label-bold             t
  2100.     :initial-state          :active
  2101.     :event-handler          nil
  2102.     :user-data              ()
  2103.     :actions                ()
  2104. )
  2105. (
  2106.     :type                   :message
  2107.     :name                   infoMsg3
  2108.     :owner                  infoControls
  2109.     :help                   ""
  2110.     :x                      8
  2111.     :y                      132
  2112.     :width                  457
  2113.     :height                 13
  2114.     :foreground-color       "Black"
  2115.     :label                  "Copyright (C) 1990, 1991, 1992 Libraries and Information Resources (L&IR)"
  2116.     :label-type             :string
  2117.     :label-bold             nil
  2118.     :initial-state          :active
  2119.     :event-handler          nil
  2120.     :user-data              ()
  2121.     :actions                ()
  2122. )
  2123. (
  2124.     :type                   :message
  2125.     :name                   infoMsg2
  2126.     :owner                  infoControls
  2127.     :help                   ""
  2128.     :x                      176
  2129.     :y                      156
  2130.     :width                  118
  2131.     :height                 13
  2132.     :foreground-color       "Black"
  2133.     :label                  "Stanford University"
  2134.     :label-type             :string
  2135.     :label-bold             nil
  2136.     :initial-state          :active
  2137.     :event-handler          nil
  2138.     :user-data              ()
  2139.     :actions                ()
  2140. )
  2141. (
  2142.     :type                   :message
  2143.     :name                   infoMsg8
  2144.     :owner                  infoControls
  2145.     :help                   ""
  2146.     :x                      177
  2147.     :y                      176
  2148.     :width                  119
  2149.     :height                 13
  2150.     :foreground-color       ""
  2151.     :label                  "Stanford, California"
  2152.     :label-type             :string
  2153.     :label-bold             nil
  2154.     :initial-state          :active
  2155.     :event-handler          nil
  2156.     :user-data              ()
  2157.     :actions                ()
  2158. )
  2159. (
  2160.     :type                   :message
  2161.     :name                   infoMsg4
  2162.     :owner                  infoControls
  2163.     :help                   ""
  2164.     :x                      82
  2165.     :y                      204
  2166.     :width                  309
  2167.     :height                 13
  2168.     :foreground-color       "Black"
  2169.     :label                  "For more info, contact maestro@sioux.stanford.edu"
  2170.     :label-type             :string
  2171.     :label-bold             nil
  2172.     :initial-state          :active
  2173.     :event-handler          nil
  2174.     :user-data              ()
  2175.     :actions                ()
  2176. )
  2177. (
  2178.     :type                   :button
  2179.     :name                   infoOkButton
  2180.     :owner                  infoControls
  2181.     :help                   "Closes Info popup."
  2182.     :x                      216
  2183.     :y                      236
  2184.     :width                  36
  2185.     :height                 19
  2186.     :constant-width         nil
  2187.     :button-type            :normal
  2188.     :foreground-color       "Black"
  2189.     :label                  "OK"
  2190.     :label-type             :string
  2191.     :initial-state          :active
  2192.     :menu                   nil
  2193.     :notify-handler         InfoDone
  2194.     :event-handler          nil
  2195.     :user-data              ()
  2196.     :actions                (
  2197.         (
  2198.         :from                   (infoPopup infoOkButton)
  2199.         :when                   (Notify )
  2200.         :to                     (infoPopup infoOkButton)
  2201.         :function_type          CallFunction
  2202.         :arg_type               ()
  2203.         :action                 (InfoDone)
  2204.         )
  2205.     )
  2206. )
  2207. (
  2208.     :type                   :popup-window
  2209.     :name                   editPopup
  2210.     :owner                  window1
  2211.     :width                  584
  2212.     :height                 482
  2213.     :background-color       "BG1"
  2214.     :foreground-color       ""
  2215.     :label                  "Untitled"
  2216.     :label-type             :string
  2217.     :initial-state          :invisible
  2218.     :show-footer            t
  2219.     :resizable              t
  2220.     :pinned                 t
  2221.     :done-handler           nil
  2222.     :event-handler          nil
  2223.     :user-data              ()
  2224.     :actions                ()
  2225. )
  2226. (
  2227.     :type                   :control-area
  2228.     :name                   editFileControls
  2229.     :owner                  editPopup
  2230.     :help                   ""
  2231.     :x                      0
  2232.     :y                      0
  2233.     :width                  584
  2234.     :height                 40
  2235.     :background-color       "BG1"
  2236.     :foreground-color       ""
  2237.     :initial-state          :visible
  2238.     :show-border            nil
  2239.     :menu                   nil
  2240.     :event-handler          nil
  2241.     :user-data              ()
  2242.     :actions                ()
  2243. )
  2244. (
  2245.     :type                   :button
  2246.     :name                   editDocButton
  2247.     :owner                  editFileControls
  2248.     :help                   ""
  2249.     :x                      28
  2250.     :y                      12
  2251.     :width                  94
  2252.     :height                 19
  2253.     :constant-width         nil
  2254.     :button-type            :normal
  2255.     :foreground-color       ""
  2256.     :label                  "Document"
  2257.     :label-type             :string
  2258.     :initial-state          :active
  2259.     :menu                   DocMenu
  2260.     :notify-handler         nil
  2261.     :event-handler          nil
  2262.     :user-data              ()
  2263.     :actions                ()
  2264. )
  2265. (
  2266.     :type                   :control-area
  2267.     :name                   editScrollListControls
  2268.     :owner                  editPopup
  2269.     :help                   ""
  2270.     :x                      0
  2271.     :y                      40
  2272.     :width                  584
  2273.     :height                 226
  2274.     :background-color       "BG1"
  2275.     :foreground-color       ""
  2276.     :initial-state          :visible
  2277.     :show-border            t
  2278.     :menu                   nil
  2279.     :event-handler          nil
  2280.     :user-data              ()
  2281.     :actions                ()
  2282. )
  2283. (
  2284.     :type                   :message
  2285.     :name                   editListMsg
  2286.     :owner                  editScrollListControls
  2287.     :help                   ""
  2288.     :x                      264
  2289.     :y                      15
  2290.     :width                  56
  2291.     :height                 13
  2292.     :foreground-color       "Black"
  2293.     :label                  "Edit List"
  2294.     :label-type             :string
  2295.     :label-bold             t
  2296.     :initial-state          :active
  2297.     :event-handler          nil
  2298.     :user-data              ()
  2299.     :actions                ()
  2300. )
  2301. (
  2302.     :type                   :message
  2303.     :name                   editNumEditMsg
  2304.     :owner                  editScrollListControls
  2305.     :help                   ""
  2306.     :x                      424
  2307.     :y                      15
  2308.     :width                  88
  2309.     :height                 13
  2310.     :foreground-color       "Black"
  2311.     :label                  "No. of Edits : 0"
  2312.     :label-type             :string
  2313.     :label-bold             nil
  2314.     :initial-state          :active
  2315.     :event-handler          nil
  2316.     :user-data              ()
  2317.     :actions                ()
  2318. )
  2319. (
  2320.     :type                   :message
  2321.     :name                   editTableHeader
  2322.     :owner                  editScrollListControls
  2323.     :help                   ""
  2324.     :x                      24
  2325.     :y                      39
  2326.     :width                  361
  2327.     :height                 13
  2328.     :foreground-color       "Black"
  2329.     :label                  "  Edit #            Label                             Start              End"
  2330.     :label-type             :string
  2331.     :label-bold             t
  2332.     :initial-state          :active
  2333.     :event-handler          nil
  2334.     :user-data              ()
  2335.     :actions                ()
  2336. )
  2337. (
  2338.     :type                   :message
  2339.     :name                   editTableHeader2
  2340.     :owner                  editScrollListControls
  2341.     :help                   ""
  2342.     :x                      440
  2343.     :y                      39
  2344.     :width                  39
  2345.     :height                 13
  2346.     :foreground-color       ""
  2347.     :label                  "Audio"
  2348.     :label-type             :string
  2349.     :label-bold             t
  2350.     :initial-state          :active
  2351.     :event-handler          nil
  2352.     :user-data              ()
  2353.     :actions                ()
  2354. )
  2355. (
  2356.     :type                   :message
  2357.     :name                   editTableHeader3
  2358.     :owner                  editScrollListControls
  2359.     :help                   ""
  2360.     :x                      500
  2361.     :y                      39
  2362.     :width                  41
  2363.     :height                 13
  2364.     :foreground-color       ""
  2365.     :label                  "Speed"
  2366.     :label-type             :string
  2367.     :label-bold             t
  2368.     :initial-state          :active
  2369.     :event-handler          nil
  2370.     :user-data              ()
  2371.     :actions                ()
  2372. )
  2373. (
  2374.     :type                   :scrolling-list
  2375.     :name                   editScrollList
  2376.     :owner                  editScrollListControls
  2377.     :help                   "Displays edits."
  2378.     :x                      4
  2379.     :y                      64
  2380.     :width                  545
  2381.     :height                 146
  2382.     :value-x                4
  2383.     :value-y                64
  2384.     :rows                   7
  2385.     :foreground-color       "Black"
  2386.     :label                  ""
  2387.     :title                  ""
  2388.     :label-type             :string
  2389.     :layout-type            :horizontal
  2390.     :read-only              nil
  2391.     :multiple-selections    nil
  2392.     :selection-required     nil
  2393.     :initial-state          :active
  2394.     :droppable              nil
  2395.     :default-drop-site      nil
  2396.     :menu                   nil
  2397.     :notify-handler         List
  2398.     :event-handler          nil
  2399.     :initial-list-values    ()
  2400.     :initial-list-glyphs    ()
  2401.     :initial-selections     ()
  2402.     :user-data              ()
  2403.     :actions                (
  2404.         (
  2405.         :from                   (editPopup editScrollList)
  2406.         :when                   (Notify )
  2407.         :to                     (editPopup editScrollList)
  2408.         :function_type          CallFunction
  2409.         :arg_type               ()
  2410.         :action                 (List)
  2411.         )
  2412.     )
  2413. )
  2414. (
  2415.     :type                   :control-area
  2416.     :name                   editSelectionControls
  2417.     :owner                  editPopup
  2418.     :help                   ""
  2419.     :x                      0
  2420.     :y                      266
  2421.     :width                  584
  2422.     :height                 216
  2423.     :background-color       "BG1"
  2424.     :foreground-color       "Black"
  2425.     :initial-state          :visible
  2426.     :show-border            nil
  2427.     :menu                   nil
  2428.     :event-handler          nil
  2429.     :user-data              ()
  2430.     :actions                ()
  2431. )
  2432. (
  2433.     :type                   :message
  2434.     :name                   editNewEditMsg
  2435.     :owner                  editSelectionControls
  2436.     :help                   ""
  2437.     :x                      196
  2438.     :y                      16
  2439.     :width                  189
  2440.     :height                 13
  2441.     :foreground-color       "Black"
  2442.     :label                  "Current Selection : New Edit"
  2443.     :label-type             :string
  2444.     :label-bold             t
  2445.     :initial-state          :active
  2446.     :event-handler          nil
  2447.     :user-data              ()
  2448.     :actions                ()
  2449. )
  2450. (
  2451.     :type                   :message
  2452.     :name                   editTimeMsg1
  2453.     :owner                  editSelectionControls
  2454.     :help                   ""
  2455.     :x                      84
  2456.     :y                      44
  2457.     :width                  14
  2458.     :height                 13
  2459.     :foreground-color       ""
  2460.     :label                  "Hr"
  2461.     :label-type             :string
  2462.     :label-bold             nil
  2463.     :initial-state          :active
  2464.     :event-handler          nil
  2465.     :user-data              ()
  2466.     :actions                ()
  2467. )
  2468. (
  2469.     :type                   :message
  2470.     :name                   editTimeMsg2
  2471.     :owner                  editSelectionControls
  2472.     :help                   ""
  2473.     :x                      132
  2474.     :y                      44
  2475.     :width                  23
  2476.     :height                 13
  2477.     :foreground-color       ""
  2478.     :label                  "Min"
  2479.     :label-type             :string
  2480.     :label-bold             nil
  2481.     :initial-state          :active
  2482.     :event-handler          nil
  2483.     :user-data              ()
  2484.     :actions                ()
  2485. )
  2486. (
  2487.     :type                   :message
  2488.     :name                   editTimeMsg3
  2489.     :owner                  editSelectionControls
  2490.     :help                   ""
  2491.     :x                      188
  2492.     :y                      44
  2493.     :width                  20
  2494.     :height                 13
  2495.     :foreground-color       ""
  2496.     :label                  "Sec"
  2497.     :label-type             :string
  2498.     :label-bold             nil
  2499.     :initial-state          :active
  2500.     :event-handler          nil
  2501.     :user-data              ()
  2502.     :actions                ()
  2503. )
  2504. (
  2505.     :type                   :message
  2506.     :name                   editTimeMsg4
  2507.     :owner                  editSelectionControls
  2508.     :help                   ""
  2509.     :x                      232
  2510.     :y                      44
  2511.     :width                  38
  2512.     :height                 13
  2513.     :foreground-color       ""
  2514.     :label                  "Frame"
  2515.     :label-type             :string
  2516.     :label-bold             nil
  2517.     :initial-state          :active
  2518.     :event-handler          nil
  2519.     :user-data              ()
  2520.     :actions                ()
  2521. )
  2522. (
  2523.     :type                   :button
  2524.     :name                   editGetStartButton
  2525.     :owner                  editSelectionControls
  2526.     :help                   "Places current playback position as 
  2527. start of current selection."
  2528.     :x                      276
  2529.     :y                      64
  2530.     :width                  34
  2531.     :height                 19
  2532.     :constant-width         nil
  2533.     :button-type            :normal
  2534.     :foreground-color       "Black"
  2535.     :label                  "<-"
  2536.     :label-type             :string
  2537.     :initial-state          :active
  2538.     :menu                   nil
  2539.     :notify-handler         GetStart
  2540.     :event-handler          nil
  2541.     :user-data              ()
  2542.     :actions                (
  2543.         (
  2544.         :from                   (editPopup editGetStartButton)
  2545.         :when                   (Notify )
  2546.         :to                     (editPopup editGetStartButton)
  2547.         :function_type          CallFunction
  2548.         :arg_type               ()
  2549.         :action                 (GetStart)
  2550.         )
  2551.     )
  2552. )
  2553. (
  2554.     :type                   :text-field
  2555.     :name                   editStartTxt1
  2556.     :owner                  editSelectionControls
  2557.     :help                   "Hour field of start of current selection."
  2558.     :x                      16
  2559.     :y                      68
  2560.     :width                  91
  2561.     :height                 15
  2562.     :value-x                71
  2563.     :value-y                68
  2564.     :value-length           2
  2565.     :stored-length          2
  2566.     :rows                   3
  2567.     :foreground-color       "Black"
  2568.     :text-type              :alphanumeric
  2569.     :label                  "Start  : "
  2570.     :label-type             :string
  2571.     :layout-type            :horizontal
  2572.     :value-underlined       t
  2573.     :initial-value          ""
  2574.     :initial-state          :active
  2575.     :read-only              nil
  2576.     :notify-handler         nil
  2577.     :event-handler          nil
  2578.     :user-data              ()
  2579.     :actions                ()
  2580. )
  2581. (
  2582.     :type                   :text-field
  2583.     :name                   editStartTxt2
  2584.     :owner                  editSelectionControls
  2585.     :help                   "Minute field of start of current selection."
  2586.     :x                      112
  2587.     :y                      68
  2588.     :width                  47
  2589.     :height                 15
  2590.     :value-x                123
  2591.     :value-y                68
  2592.     :value-length           2
  2593.     :stored-length          2
  2594.     :rows                   3
  2595.     :foreground-color       ""
  2596.     :text-type              :alphanumeric
  2597.     :label                  ":"
  2598.     :label-type             :string
  2599.     :layout-type            :horizontal
  2600.     :value-underlined       t
  2601.     :initial-value          ""
  2602.     :initial-state          :active
  2603.     :read-only              nil
  2604.     :notify-handler         nil
  2605.     :event-handler          nil
  2606.     :user-data              ()
  2607.     :actions                ()
  2608. )
  2609. (
  2610.     :type                   :text-field
  2611.     :name                   editStartTxt3
  2612.     :owner                  editSelectionControls
  2613.     :help                   "Second field of start of current selection."
  2614.     :x                      168
  2615.     :y                      68
  2616.     :width                  47
  2617.     :height                 15
  2618.     :value-x                179
  2619.     :value-y                68
  2620.     :value-length           2
  2621.     :stored-length          2
  2622.     :rows                   3
  2623.     :foreground-color       ""
  2624.     :text-type              :alphanumeric
  2625.     :label                  ":"
  2626.     :label-type             :string
  2627.     :layout-type            :horizontal
  2628.     :value-underlined       t
  2629.     :initial-value          ""
  2630.     :initial-state          :active
  2631.     :read-only              nil
  2632.     :notify-handler         nil
  2633.     :event-handler          nil
  2634.     :user-data              ()
  2635.     :actions                ()
  2636. )
  2637. (
  2638.     :type                   :text-field
  2639.     :name                   editStartTxt4
  2640.     :owner                  editSelectionControls
  2641.     :help                   "Frame field of start of current selection."
  2642.     :x                      220
  2643.     :y                      68
  2644.     :width                  47
  2645.     :height                 15
  2646.     :value-x                231
  2647.     :value-y                68
  2648.     :value-length           2
  2649.     :stored-length          2
  2650.     :rows                   3
  2651.     :foreground-color       ""
  2652.     :text-type              :alphanumeric
  2653.     :label                  ":"
  2654.     :label-type             :string
  2655.     :layout-type            :horizontal
  2656.     :value-underlined       t
  2657.     :initial-value          ""
  2658.     :initial-state          :active
  2659.     :read-only              nil
  2660.     :notify-handler         nil
  2661.     :event-handler          nil
  2662.     :user-data              ()
  2663.     :actions                ()
  2664. )
  2665. (
  2666.     :type                   :message
  2667.     :name                   editInstruct1
  2668.     :owner                  editSelectionControls
  2669.     :help                   ""
  2670.     :x                      312
  2671.     :y                      68
  2672.     :width                  113
  2673.     :height                 13
  2674.     :foreground-color       "Black"
  2675.     :label                  "Get current frame "
  2676.     :label-type             :string
  2677.     :label-bold             nil
  2678.     :initial-state          :active
  2679.     :event-handler          nil
  2680.     :user-data              ()
  2681.     :actions                ()
  2682. )
  2683. (
  2684.     :type                   :button
  2685.     :name                   editGetEndButton
  2686.     :owner                  editSelectionControls
  2687.     :help                   "Places the current playback position as
  2688. the end of current selection."
  2689.     :x                      276
  2690.     :y                      88
  2691.     :width                  34
  2692.     :height                 19
  2693.     :constant-width         nil
  2694.     :button-type            :normal
  2695.     :foreground-color       "Black"
  2696.     :label                  "<-"
  2697.     :label-type             :string
  2698.     :initial-state          :active
  2699.     :menu                   nil
  2700.     :notify-handler         GetEnd
  2701.     :event-handler          nil
  2702.     :user-data              ()
  2703.     :actions                (
  2704.         (
  2705.         :from                   (editPopup editGetEndButton)
  2706.         :when                   (Notify )
  2707.         :to                     (editPopup editGetEndButton)
  2708.         :function_type          CallFunction
  2709.         :arg_type               ()
  2710.         :action                 (GetEnd)
  2711.         )
  2712.     )
  2713. )
  2714. (
  2715.     :type                   :message
  2716.     :name                   editInstruct2
  2717.     :owner                  editSelectionControls
  2718.     :help                   ""
  2719.     :x                      316
  2720.     :y                      88
  2721.     :width                  48
  2722.     :height                 13
  2723.     :foreground-color       "Black"
  2724.     :label                  "number"
  2725.     :label-type             :string
  2726.     :label-bold             nil
  2727.     :initial-state          :active
  2728.     :event-handler          nil
  2729.     :user-data              ()
  2730.     :actions                ()
  2731. )
  2732. (
  2733.     :type                   :text-field
  2734.     :name                   editSpeedTxt
  2735.     :owner                  editSelectionControls
  2736.     :help                   "Speed setting for current selection.
  2737. Whether segment play can perform at
  2738. any particular speed depends on the
  2739. device."
  2740.     :x                      424
  2741.     :y                      88
  2742.     :width                  127
  2743.     :height                 15
  2744.     :value-x                476
  2745.     :value-y                88
  2746.     :value-length           5
  2747.     :stored-length          5
  2748.     :rows                   3
  2749.     :foreground-color       ""
  2750.     :text-type              :numeric
  2751.     :label                  "Speed:"
  2752.     :label-type             :string
  2753.     :layout-type            :horizontal
  2754.     :value-underlined       t
  2755.     :max-value              810
  2756.     :min-value              0
  2757.     :initial-value          0
  2758.     :initial-state          :active
  2759.     :read-only              nil
  2760.     :notify-handler         EditSpeedSet
  2761.     :event-handler          nil
  2762.     :user-data              ()
  2763.     :actions                (
  2764.         (
  2765.         :from                   (editPopup editSpeedTxt)
  2766.         :when                   (Notify )
  2767.         :to                     (editPopup editSpeedTxt)
  2768.         :function_type          CallFunction
  2769.         :arg_type               ()
  2770.         :action                 (EditSpeedSet)
  2771.         )
  2772.     )
  2773. )
  2774. (
  2775.     :type                   :text-field
  2776.     :name                   editEndTxt1
  2777.     :owner                  editSelectionControls
  2778.     :help                   "Hour field of end of current selection."
  2779.     :x                      16
  2780.     :y                      92
  2781.     :width                  92
  2782.     :height                 15
  2783.     :value-x                72
  2784.     :value-y                92
  2785.     :value-length           2
  2786.     :stored-length          2
  2787.     :rows                   3
  2788.     :foreground-color       "Black"
  2789.     :text-type              :alphanumeric
  2790.     :label                  "End    : "
  2791.     :label-type             :string
  2792.     :layout-type            :horizontal
  2793.     :value-underlined       t
  2794.     :initial-value          ""
  2795.     :initial-state          :active
  2796.     :read-only              nil
  2797.     :notify-handler         nil
  2798.     :event-handler          nil
  2799.     :user-data              ()
  2800.     :actions                ()
  2801. )
  2802. (
  2803.     :type                   :text-field
  2804.     :name                   editEndTxt2
  2805.     :owner                  editSelectionControls
  2806.     :help                   "Minute field of end of current selection."
  2807.     :x                      112
  2808.     :y                      92
  2809.     :width                  47
  2810.     :height                 15
  2811.     :value-x                123
  2812.     :value-y                92
  2813.     :value-length           2
  2814.     :stored-length          2
  2815.     :rows                   3
  2816.     :foreground-color       ""
  2817.     :text-type              :alphanumeric
  2818.     :label                  ":"
  2819.     :label-type             :string
  2820.     :layout-type            :horizontal
  2821.     :value-underlined       t
  2822.     :initial-value          ""
  2823.     :initial-state          :active
  2824.     :read-only              nil
  2825.     :notify-handler         nil
  2826.     :event-handler          nil
  2827.     :user-data              ()
  2828.     :actions                ()
  2829. )
  2830. (
  2831.     :type                   :text-field
  2832.     :name                   editEndTxt3
  2833.     :owner                  editSelectionControls
  2834.     :help                   "Second field of end of current selection."
  2835.     :x                      168
  2836.     :y                      92
  2837.     :width                  47
  2838.     :height                 15
  2839.     :value-x                179
  2840.     :value-y                92
  2841.     :value-length           2
  2842.     :stored-length          2
  2843.     :rows                   3
  2844.     :foreground-color       ""
  2845.     :text-type              :alphanumeric
  2846.     :label                  ":"
  2847.     :label-type             :string
  2848.     :layout-type            :horizontal
  2849.     :value-underlined       t
  2850.     :initial-value          ""
  2851.     :initial-state          :active
  2852.     :read-only              nil
  2853.     :notify-handler         nil
  2854.     :event-handler          nil
  2855.     :user-data              ()
  2856.     :actions                ()
  2857. )
  2858. (
  2859.     :type                   :text-field
  2860.     :name                   editEndTxt4
  2861.     :owner                  editSelectionControls
  2862.     :help                   "Frame field of end of current selection."
  2863.     :x                      220
  2864.     :y                      92
  2865.     :width                  47
  2866.     :height                 15
  2867.     :value-x                231
  2868.     :value-y                92
  2869.     :value-length           2
  2870.     :stored-length          2
  2871.     :rows                   3
  2872.     :foreground-color       ""
  2873.     :text-type              :alphanumeric
  2874.     :label                  ":"
  2875.     :label-type             :string
  2876.     :layout-type            :horizontal
  2877.     :value-underlined       t
  2878.     :initial-value          ""
  2879.     :initial-state          :active
  2880.     :read-only              nil
  2881.     :notify-handler         nil
  2882.     :event-handler          nil
  2883.     :user-data              ()
  2884.     :actions                ()
  2885. )
  2886. (
  2887.     :type                   :message
  2888.     :name                   editSpeedMsg
  2889.     :owner                  editSelectionControls
  2890.     :help                   ""
  2891.     :x                      480
  2892.     :y                      112
  2893.     :width                  67
  2894.     :height                 13
  2895.     :foreground-color       ""
  2896.     :label                  "frames/sec"
  2897.     :label-type             :string
  2898.     :label-bold             nil
  2899.     :initial-state          :active
  2900.     :event-handler          nil
  2901.     :user-data              ()
  2902.     :actions                ()
  2903. )
  2904. (
  2905.     :type                   :text-field
  2906.     :name                   editLabelTxt
  2907.     :owner                  editSelectionControls
  2908.     :help                   "Type here to label current selection."
  2909.     :x                      16
  2910.     :y                      120
  2911.     :width                  229
  2912.     :height                 15
  2913.     :value-x                69
  2914.     :value-y                120
  2915.     :value-length           22
  2916.     :stored-length          22
  2917.     :rows                   3
  2918.     :foreground-color       "Black"
  2919.     :text-type              :alphanumeric
  2920.     :label                  "Label :"
  2921.     :label-type             :string
  2922.     :layout-type            :horizontal
  2923.     :value-underlined       t
  2924.     :initial-value          ""
  2925.     :initial-state          :active
  2926.     :read-only              nil
  2927.     :notify-handler         nil
  2928.     :event-handler          nil
  2929.     :user-data              ()
  2930.     :actions                ()
  2931. )
  2932. (
  2933.     :type                   :button
  2934.     :name                   editAudioMenuButton
  2935.     :owner                  editSelectionControls
  2936.     :help                   "Audio setting for current selection.
  2937. Whether any particular audio setting can 
  2938. be played during segment play depends on
  2939. the device."
  2940.     :x                      476
  2941.     :y                      140
  2942.     :width                  57
  2943.     :height                 19
  2944.     :constant-width         t
  2945.     :button-type            :normal
  2946.     :foreground-color       ""
  2947.     :label                  "Stereo"
  2948.     :label-type             :string
  2949.     :initial-state          :active
  2950.     :menu                   editAudioMenu
  2951.     :notify-handler         nil
  2952.     :event-handler          nil
  2953.     :user-data              ()
  2954.     :actions                ()
  2955. )
  2956. (
  2957.     :type                   :text-field
  2958.     :name                   editDurTxt
  2959.     :owner                  editSelectionControls
  2960.     :help                   "Displays approximate duration of current
  2961. selection."
  2962.     :x                      16
  2963.     :y                      144
  2964.     :width                  228
  2965.     :height                 15
  2966.     :value-x                180
  2967.     :value-y                144
  2968.     :value-length           8
  2969.     :stored-length          80
  2970.     :rows                   3
  2971.     :foreground-color       "Black"
  2972.     :text-type              :alphanumeric
  2973.     :label                  "Approximate duration :"
  2974.     :label-type             :string
  2975.     :layout-type            :horizontal
  2976.     :value-underlined       t
  2977.     :initial-value          ""
  2978.     :initial-state          :active
  2979.     :read-only              t
  2980.     :notify-handler         nil
  2981.     :event-handler          nil
  2982.     :user-data              ()
  2983.     :actions                ()
  2984. )
  2985. (
  2986.     :type                   :message
  2987.     :name                   editDurSecMsg
  2988.     :owner                  editSelectionControls
  2989.     :help                   ""
  2990.     :x                      248
  2991.     :y                      144
  2992.     :width                  48
  2993.     :height                 13
  2994.     :foreground-color       "Black"
  2995.     :label                  "seconds"
  2996.     :label-type             :string
  2997.     :label-bold             nil
  2998.     :initial-state          :active
  2999.     :event-handler          nil
  3000.     :user-data              ()
  3001.     :actions                ()
  3002. )
  3003. (
  3004.     :type                   :message
  3005.     :name                   editAudioMsg
  3006.     :owner                  editSelectionControls
  3007.     :help                   ""
  3008.     :x                      424
  3009.     :y                      144
  3010.     :width                  42
  3011.     :height                 13
  3012.     :foreground-color       ""
  3013.     :label                  "Audio:"
  3014.     :label-type             :string
  3015.     :label-bold             t
  3016.     :initial-state          :active
  3017.     :event-handler          nil
  3018.     :user-data              ()
  3019.     :actions                ()
  3020. )
  3021. (
  3022.     :type                   :button
  3023.     :name                   editAddButton
  3024.     :owner                  editSelectionControls
  3025.     :help                   "Adds the selection in the Current Selection
  3026. panel (including audio and speed settings)
  3027. onto the Edit List."
  3028.     :x                      16
  3029.     :y                      176
  3030.     :width                  57
  3031.     :height                 19
  3032.     :constant-width         t
  3033.     :button-type            :normal
  3034.     :foreground-color       "Black"
  3035.     :label                  "    Add"
  3036.     :label-type             :string
  3037.     :initial-state          :active
  3038.     :menu                   nil
  3039.     :notify-handler         EditAdd
  3040.     :event-handler          nil
  3041.     :user-data              ()
  3042.     :actions                (
  3043.         (
  3044.         :from                   (editPopup editAddButton)
  3045.         :when                   (Notify )
  3046.         :to                     (editPopup editAddButton)
  3047.         :function_type          CallFunction
  3048.         :arg_type               ()
  3049.         :action                 (EditAdd)
  3050.         )
  3051.     )
  3052. )
  3053. (
  3054.     :type                   :button
  3055.     :name                   editModButton
  3056.     :owner                  editSelectionControls
  3057.     :help                   "Updates the modifications made in current
  3058. selection onto the Edit List."
  3059.     :x                      132
  3060.     :y                      176
  3061.     :width                  57
  3062.     :height                 19
  3063.     :constant-width         t
  3064.     :button-type            :normal
  3065.     :foreground-color       "Black"
  3066.     :label                  "  Modify"
  3067.     :label-type             :string
  3068.     :initial-state          :active
  3069.     :menu                   nil
  3070.     :notify-handler         EditModify
  3071.     :event-handler          nil
  3072.     :user-data              ()
  3073.     :actions                (
  3074.         (
  3075.         :from                   (editPopup editModButton)
  3076.         :when                   (Notify )
  3077.         :to                     (editPopup editModButton)
  3078.         :function_type          CallFunction
  3079.         :arg_type               ()
  3080.         :action                 (EditModify)
  3081.         )
  3082.     )
  3083. )
  3084. (
  3085.     :type                   :button
  3086.     :name                   editDelButton
  3087.     :owner                  editSelectionControls
  3088.     :help                   "Deletes current selection in Edit List."
  3089.     :x                      244
  3090.     :y                      176
  3091.     :width                  57
  3092.     :height                 19
  3093.     :constant-width         t
  3094.     :button-type            :normal
  3095.     :foreground-color       "Black"
  3096.     :label                  "  Delete"
  3097.     :label-type             :string
  3098.     :initial-state          :active
  3099.     :menu                   nil
  3100.     :notify-handler         EditDelete
  3101.     :event-handler          nil
  3102.     :user-data              ()
  3103.     :actions                (
  3104.         (
  3105.         :from                   (editPopup editDelButton)
  3106.         :when                   (Notify )
  3107.         :to                     (editPopup editDelButton)
  3108.         :function_type          CallFunction
  3109.         :arg_type               ()
  3110.         :action                 (EditDelete)
  3111.         )
  3112.     )
  3113. )
  3114. (
  3115.     :type                   :button
  3116.     :name                   editDelAllButton
  3117.     :owner                  editSelectionControls
  3118.     :help                   "Clears the Edit List. Please make sure all
  3119. changes are saved."
  3120.     :x                      356
  3121.     :y                      176
  3122.     :width                  86
  3123.     :height                 19
  3124.     :constant-width         nil
  3125.     :button-type            :normal
  3126.     :foreground-color       "Black"
  3127.     :label                  "Delete All..."
  3128.     :label-type             :string
  3129.     :initial-state          :active
  3130.     :menu                   nil
  3131.     :notify-handler         EditDeleteAll
  3132.     :event-handler          nil
  3133.     :user-data              ()
  3134.     :actions                (
  3135.         (
  3136.         :from                   (editPopup editDelAllButton)
  3137.         :when                   (Notify )
  3138.         :to                     (editPopup editDelAllButton)
  3139.         :function_type          CallFunction
  3140.         :arg_type               ()
  3141.         :action                 (EditDeleteAll)
  3142.         )
  3143.     )
  3144. )
  3145. (
  3146.     :type                   :button
  3147.     :name                   editPreviewButton
  3148.     :owner                  editSelectionControls
  3149.     :help                   "Menu button that allows preview of :-
  3150. 1. The entire current selection
  3151. 2. The first few seconds or last few
  3152.    seconds of the current selection.
  3153. "
  3154.     :x                      476
  3155.     :y                      176
  3156.     :width                  57
  3157.     :height                 19
  3158.     :constant-width         t
  3159.     :button-type            :normal
  3160.     :foreground-color       "Black"
  3161.     :label                  "Preview  "
  3162.     :label-type             :string
  3163.     :initial-state          :active
  3164.     :menu                   previewMenu
  3165.     :notify-handler         nil
  3166.     :event-handler          nil
  3167.     :user-data              ()
  3168.     :actions                ()
  3169. )
  3170. )
  3171.